(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     26434,        613]
NotebookOptionsPosition[     25593,        590]
NotebookOutlinePosition[     26024,        607]
CellTagsIndexPosition[     25981,        604]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Theta]peven1", "[", "\[Beta]_", "]"}], ":=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"\[Beta]", "<", "0"}], ",", 
       FractionBox["\[Pi]", "2"], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"\[Beta]", ">", "3"}], ",", "0", ",", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"ArcCos", "[", 
           FractionBox[
            SqrtBox[
             RowBox[{"1", "+", "\[Beta]"}]], "2"], "]"}]}]}], "]"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Theta]peven2", "[", "\[Beta]_", "]"}], ":=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"\[Beta]", "<", "0"}], ",", 
       FractionBox["\[Pi]", "2"], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"\[Beta]", ">", "3"}], ",", "0", ",", 
         RowBox[{"\[Pi]", "-", 
          RowBox[{
           FractionBox["1", "2"], " ", 
           RowBox[{"ArcCos", "[", 
            FractionBox[
             SqrtBox[
              RowBox[{"1", "+", "\[Beta]"}]], "2"], "]"}]}]}]}], "]"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Theta]neven1", "[", "\[Beta]_", "]"}], ":=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"\[Beta]", "<", "0"}], ",", "0", ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"\[Beta]", ">", "3"}], ",", 
         FractionBox["\[Pi]", "2"], ",", 
         RowBox[{
          FractionBox["\[Pi]", "2"], "+", 
          RowBox[{
           FractionBox["1", "2"], " ", 
           RowBox[{"ArcCos", "[", 
            FractionBox[
             SqrtBox[
              RowBox[{"1", "+", "\[Beta]"}]], "2"], "]"}]}]}]}], "]"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Theta]neven2", "[", "\[Beta]_", "]"}], ":=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"\[Beta]", "<", "0"}], ",", "0", ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"\[Beta]", ">", "3"}], ",", 
         FractionBox["\[Pi]", "2"], ",", 
         RowBox[{
          FractionBox["\[Pi]", "2"], "-", 
          RowBox[{
           FractionBox["1", "2"], " ", 
           RowBox[{"ArcCos", "[", 
            FractionBox[
             SqrtBox[
              RowBox[{"1", "+", "\[Beta]"}]], "2"], "]"}]}]}]}], "]"}]}], 
      "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.821808341389188*^9, 3.8218083529578457`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"ae57b924-932a-43bc-bbe5-b8acc9aeca2b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]peven1", "[", "\[Beta]", "]"}], ",", 
      RowBox[{"\[Theta]peven2", "[", "\[Beta]", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Beta]", ",", 
      RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Thickness", "[", "0.007", "]"}], ",", "Red"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Thickness", "[", "0.007", "]"}], ",", "Red"}], "}"}]}], 
      "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\!\(\*FractionBox[\(\[Lambda]\\\ \[CurlyEpsilon]\), \(\(|\)\(\
\[Gamma]\)\(|\)\*SuperscriptBox[SubscriptBox[\(\[CapitalPhi]\), \(0\)], \
\(2\)]\)]\)\>\"", ",", "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(s\)]\)\>\""}], 
      "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Automatic", ",", 
       RowBox[{"{", 
        RowBox[{
         FractionBox["\[Pi]", "6"], ",", 
         FractionBox["\[Pi]", "3"], ",", 
         FractionBox["\[Pi]", "2"], ",", 
         FractionBox[
          RowBox[{"2", "\[Pi]"}], "3"], ",", 
         FractionBox[
          RowBox[{"5", "\[Pi]"}], "6"]}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AxesStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Directive", "[", 
        RowBox[{"Black", ",", 
         RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Black", ",", 
         RowBox[{"FontSize", "\[Rule]", "18"}]}], "]"}]}], "}"}]}], ",", 
    RowBox[{"Exclusions", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"3", ",", "0"}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7910438497756243`*^9, 3.791043958845421*^9}, {
  3.8218083995630207`*^9, 3.8218084000108423`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"4ee3678b-3e15-4332-b220-ebb8908b8053"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[1, 0, 0], Thickness[0.007], Opacity[1.], 
      LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBmIQPfHdspv////fL6HrEvJb8af9pTXLc2Y9+wfnC2ev
+G9y9i+cX7ZlSqRw9m8433zC4eQEw59wftMeca9bTN/h/HVbw1L+LvkC51s4
3tDrz/8E5y+Z6aJ7iusDnG/cuoY/Jek1nH/zd4iqIMNzON+J5/IiAftHcP65
pjWMt+fehvPt9T30PF5dgvNz5eRCt3w6BOfv6L+nwuS+Bc7fIML+545LK5zv
9ZhNaG5BOZw/ScUTiJLgfADQepGg
       "]], LineBox[CompressedData["
1:eJwVk3s80/sfx8W2D/E4bh0kj6VfjYpadbrp6Lw/2lBunSTO8UuFLsJOq7Oz
ISQO4yQdqeNe2uG4tDBjuUzZZuVYLqnDqY19mw4l5HSiH1K/zuPxej6efz//
eK0IO+V/TF9PT+/YJ/715VV7Pi0MTvdAd/UdAtr3mXJcUlhQSqs/ZNZKwIS3
8Tonvxioc6nt2ttMQDwP9R6cSILzcyfuX7pNgP6eDKNScSr45Wz17q0ngG9r
zHgV+xM8Mo/5xryOgN8PIbWrwWXY9E2HyVUhAY8XGfupLhWCY9qHTsENAnLH
VGOTb4rBNO9O+ug1Am6dvMcwciqBdbNTnc5FBLD9+YRzlgCeg+vTxl8ImF5p
ZMsJKAe3HXzLgQsEJIWneZxn18KZ9sBoJy4BomLJOi8jETzcLl4T8z0BuoGR
JZYCEcRsXBamZBPA8PEcLn1UB4k7u91CowigbDFM6tjaAAmHnW9dO0LABcpP
TaYLTeCiF9VE9yZA9djDqqddBgdMSt79Zk9An2fwZJepHJ4PekZ/RiXgaTPr
3oNgOZRui/TkLiPgRckVbueUHM62edE9rQggsXT9Srt2uFTc1ThhTIArOTFX
yrkHaOvqawWTWqje0mBTtUoFEtiNyou0sEeVfXHXrj5gkrNvds4NQYNuujtM
Tw3Jfl75Fo8GwS88yP71Th2E/BzXFZ2vgdTa6pieqhGQxM//GhmrhrnwDSdD
uK+gLqX0hID5FNa1iHs7Pp8Co9cWr6ysn8BHUabrW883sL+tUCFbGIApdRyH
W/kWcoSX46mqfkj53uF9hm4G9hpwuO2Vf0Bms7CcbTYLQ5Hm/IqMxyDevHt5
NWseDCZ94uy8HkGC3Y2ReMECaL8cdf/cug/qCtHOfQZ6OENaEpjQ2gvP9IR5
XfRFeONYR0WPqBue2dGLLHbr4/XbQra9mlQBu09KNogxwD4+ce9Hajug96s1
1tIcEr5atcN6yl8JRJnkxpI8EiabXUnWMJXwtwnTmVVEwqejkvVlW5VgoT7k
Ri0jYSu608fTtkoI4F2JSpKQsHb78aVnnrXDQM3Hu8wnJBxNOZymZrXDkH1/
RBeVjNc4MMdV5xQwyQ//h7aSjOc3SQxy2Qr4ODmVkOhIxufXzlUHhSrAvtU4
h76BjBsvnDnYtEsBYd+6tWa7kfH/+FM750kK+CtbaB54lIxXaCesQvlyGNdP
aR6qJGO5nGamSZZB+JWKN1erybiAk+stZsvgKa17ra+YjMeSS3ixh2Rwf/fS
whYpGWsX6u49dJGBIKvmbF4PGUeI/yQLX7dBkK3G1X+ajFOeeNs8DGoD+cYt
d5WYgvuqD0xL6XdguyL4Xbw7BV9kKORUyh2oCUiib/aiYNN3B0a8NK1QxFNd
F+yn4IzNXxd84LcCrzU06dxxCj6pOPxFk0YKznuy3FwyKdiOmTOWFdcCuUdG
FcIBCt7gmNgYktgIL6KFVEsNBa82OZxvvrcRdsSejo0lKLhiaZ0na3kjDGXP
r/d4ScHTZu5Nlndvg4PCtEA7R8G3Evp0g7MSkNC2sy2oCEeimQKb/zaA4aaF
zpj/IJwXKCQtozVA8FdymtYBYc3B4YDcyXr4EOijvklHePZ9mm78XD14pB/x
cHdDuNfeiJFRKIY/xtLtYo4iHEVfnMITicDhnS9vKALhz065jqazP/3cwLKP
yUJ4jU39ipvrRWBnV8w35yLsvjf1l+nyWjjqK3pTxUfYT+s7HGlbA5Jvub7m
mQgXiHWM39OqwfD4lxW8nxFOLZkZCZm6BcJEZQgzH+EZw8Hx2GYhvK150jFY
hfDK9RRaxqoq8JBeW8msQThk6Wy/hFMJeR3hiVVihM/UEv8saasA12cTX/Ck
CKc1lJ267lEOWRN1WYNtCF+Ob1ktTfoNiFneS4YS4Qifmb8IcRn8aKF/3awb
4eELYcuHF5VCP/X+LLcPYcZZjkO+7a+w2ikzYLAf4aJjWt9RRwHEbdtXw1Aj
vMK/rPil4w14wLBaXKVF+LiJTEWzKQHq1+qjZs8RXjyhVieNFQP7YMld7otP
vZW+oW85hSCPOGY7OI5wjfWulu9keWD5w9ofGH8jTA1SBQ82XoUHN/kJhjMI
65Np4SpNNvyoe57aNYewIJF58bwqA26z1BLWPMLCE/tDaRvT4f/RM/uX
       "]], 
      LineBox[CompressedData["
1:eJxTTMoPSmViYGCwBmIQ7TlJxXMSC4cDAxSsafszT4YTwU/ZG7n8IS+Cf0VL
ZEe2OILfk1h4wEAGwXeZce7EVwUEfytr5816LQR/2oO/vybbIvh+4tHMkU4I
PpvfDm45dwS/bHeRzIoABD982nPbPckIvoTPxYYnnQj+hSa9zpV9CH7Hzu6J
eZMR/J9qbot+zEHwbzHuPsyzAcGfvX0Jm+k1BF9OuaKnVYkTzt90pWT7TzUE
37Wt8FGuNoKf8zLLIswEwd+1PvaJmhuCH2rjbHMiE8HvCeV7w7URwf/VvsR7
gj0XnD/RZd8clnBuOH/7rEfBKm08cP765U838SzkhfPN/D6XL7jMB+fbqJU/
92MQgPOPMTx5trEHwZfQCJv5SkUQzr+0avt89s0IftZN/vxIOyE4/2RI7seG
qwj+RO1dx3uShBH6X5ZMYUpF8IVW6CdWpCP4k1SW/krOQfCnyE7QtS5D8Kfx
p01+2Yngz/osGO+2EcG/tfGM9p7NCL5UQfsPw20I/uw3fybK7kbw5zx9fuTL
EQR//vW9WotvIPgPplZ8l7iN4CuEGB/pu4vgL7iwIrbqEYK/6OTkCYFvEPxH
7X6xx98h+EpunFq2HxH8xYfqDmt8Q/CfNFhOmPcDwVex/xIj8hvBT/m7TrPr
L4K/ZHfmt///EXwAA2bJsQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$3128#1"]& ], 
    TagBox[
     {RGBColor[1, 0, 0], Thickness[0.007], Opacity[1.], 
      LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBmIQPfHdspv////fL6HrEvJb8af9pTXLc2Y9+wfnC2ev
+G9y9i+cX7ZlSqRw9m8433zC4eQEw59wftMeca9bTN/h/HVbw1L+LvkC51s4
3tDrz/8E5y+Z6aJ7iusDnG/cuoY/Jek1nH/zd4iqIMNzON+J5/IiAftHcP65
pjWMt+fehvPt9T30PF5dgvNz5eRCt3w6BOfv6L+nwuS+Bc7fIML+545LK5zv
9ZhNaG5BOZw/ScUTiJLgfADQepGg
       "]], LineBox[CompressedData["
1:eJwVkn001Gkbxyd+v999jzzJ22bt0IuXtSlTLbU2232NkahVm5x6elnJUGnN
aXqWmWGRXjSy1ktZL4vCbieNySSLEtvzyEvRMKuNtRNJ1oOQRC1i9rfn3Ne5
z+ef6/qe8/0sDz7uH2rA4XBC2fnnv2Dvy75g4uH+c8GOCQrqd5pEuJ8RE7Vd
lkcVy6PbFq523i4nKtvfg468piBGhrQHRuOJ3OVY8JJJCgx8z3N/Kk8gXolS
QRPLCuuFwhdRSeRHJ8d56RQFDwKRzsPwAjFeYmba8YaC3xYs3N6SmktSvj1b
eGGagqzhluGxiXxiobD4j2CGguthjUKucwHRjCmWj7Ms8Vf0rkopIkttKmz8
3lEwZce1jgi4ShIDg1NpPQXxonPepyQ3yLtvXKIkFA1l+ZWrt3LLSH9gp68N
TUNf54CFeVEZqQ6qnX3AsvDzLc9/enST3MrXGtohGhg3HH9/fQVxt5wufsSl
4Vsm6bbJ3G1iJB4K5ZvQ0PKb93tt9f8jhisPZP76Pg3tW/aNaUzqyGW3dbdl
1jT8US1ufLivjvAvh9XZfEDDYEGGtHm8jkzHnEgM49FAifs6Gnj15OeGxQN6
Wxo86LismohGssfxJMfJnoZStworpX0LWe6w/+vDLjT4tqR/5+nZTiTG7fOF
njRU9E21BnN0xOe59YKcIzRsF+1Z9vKzPmKsy6jWpNCQcKNU3qYcIKdq6/Wa
mzTMiNaEfSl9QYrydqAjXTSsvlOuvW85Tja0PZNa6WnQlyV7TG6ZIIsqtB8I
VzAwrouOkF6bJOc6y85m+TBw5mvHd+f73pBSVWRDXTgDydWqq5LF06RGf0jY
mMZAuavP0lLxLPl36kx91S0GYnmFAzFFcyRvs6LE6ikDN3PRZzsNOaCwlFzb
ZoTgGUeVreEvgMhLVXt71rPM4+eZ+RjAlb2tBcYiBJL2GtpQbgi7EmP6RzIR
aDd9tKTmIgXHT2v9Hz5E0HulstAimwKrEevk6xoEr4y9VonzKDjE8LxSWxGY
6QIFtlco+DB6p2uAFkGALOOr+EoKkh5cX9f/CEGnWn/Xq4uCMo+eXBsdgp5l
HUc1bA8Vwye/nx9CMKYQvXawY3t7gPtfDSPQj43Hxn1IgyQpoOvPFwiW1S68
yF9DwwEq9pe2UQTBewW16QIasu1DC0peIfgzXWW6O4QGxx2PPROmEYwYnKnu
uUbDiFZwUcPFIMoonvi+lIbWiqSl40YY/nBoXelXTsOQfXONuTGGJp/3c+/U
0PDp3O8bAhdhKEpRf5PdxnpbOHCRY45hj/UTD/8pGuKP3/WM42GoW+t2twEY
KDyZEx67BsMn9/a9jdnMwDszl8DmtRjUAfF8160MBMWazll9jCFP1nK5aBcD
ESUnDt5xwyCrPRR/8jADcy7Xkiw3YljlmyJwT2bg7YWXTxy9MWQF/f+eqpOB
no3xh3EghsFwla35EwaqXKOaTh/E8GnUiaioXga25THD+iAMPemzLt5DDKRR
0ZUGIRgc75n88HSGAeec1aGrjmGodPhEYmaLoDsmPHWFDANeN9csX4FA1Gwb
0y7HsG9TncNTRwRrzfJzzkVjmN/9ua6Ej2DNFH90NhaDd2KQ92YB23O/s9HS
BAyPhxN58hAE+Trn7OMZ7L23frKeowgKfI3+JcvEIDc0b/cSI9iTvH42IRsD
j5evMJUiuGSQdvVOHoYQv7IJpQJB7lRlcfoVNt9eqZ9pMoKtRa783qtsvsMb
i2VpCDL9i5+4KzGo4hq+9MpBMHkrLdxUjWFS3XW/W4ngoMUNfthtNl/NJTsv
NYJyn0G5Uw2G7PuiOGU5gt3KCM7sLxg8no1+LKtB4JmZ0NFbjyFl9GZK938R
OJJC0V9NGHqnZUPCBgQDu1Ra5xYMZ80MLi9mvR4samx6/SuGDtumaWk7Auf9
ypdpjzE4OScHdHcgOK02rtrfhSF6w061kPW6LUtzfX83hofC94yUT9l9Tpa1
PzzDYPuFLmRxP4JNkcn+jgMYJAcK7koHETSkn/rK9AXr09FQ6+4RBEPFGql8
HIN55MpIIev1scyUnPNv2H0lilj8BsGi57G1gnk2X19/gmYGQc5gZTsfc6FK
rKsUzyK40dXn0szlwt8iEbpj
       "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGCwBmIQ7TlJxXMSC4cDAxSsafszT4YTwU/ZG7n8IS+Cf0VL
ZEe2OILfk1h4wEAGwXeZce7EVwUEfytr5816LQR/2oO/vybbIvh+4tHMkU4I
PpvfDm45dwS/bHeRzIoABD982nPbPckIvoTPxYYnnQj+hSa9zpV9CH7Hzu6J
eZMR/J9qbot+zEHwbzHuPsyzAcGfvX0Jm+k1BF9OuaKnVYkTzt90pWT7TzUE
37Wt8FGuNoKf8zLLIswEwd+1PvaJmhuCH2rjbHMiE8HvCeV7w7URwf/VvsR7
gj0XnD/RZd8clnBuOH/7rEfBKm08cP765U838SzkhfPN/D6XL7jMB+fbqJU/
92MQgPOPMTx5trEHwZfQCJv5SkUQzr+0avt89s0IftZN/vxIOyE4/2RI7seG
qwj+RO1dx3uShBH6X5ZMYUpF8IVW6CdWpCP4k1SW/krOQfCnyE7QtS5D8Kfx
p01+2Yngz/osGO+2EcG/tfGM9p7NCL5UQfsPw20I/uw3fybK7kbw5zx9fuTL
EQR//vW9WotvIPgPplZ8l7iN4CuEGB/pu4vgL7iwIrbqEYK/6OTkCYFvEPxH
7X6xx98h+EpunFq2HxH8xYfqDmt8Q/CfNFhOmPcDwVex/xIj8hvBT/m7TrPr
L4K/ZHfmt///EXwAA2bJsQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$3128#2"]& ], {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
    "\"\\!\\(\\*FractionBox[\\(\[Lambda]\\\\ \[CurlyEpsilon]\\), \
\\(\\(|\\)\\(\[Gamma]\\)\\(|\\)\\*SuperscriptBox[SubscriptBox[\\(\[CapitalPhi]\
\\), \\(0\\)], \\(2\\)]\\)]\\)\"", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(s\\)]\\)\"", TraditionalForm]},
  AxesOrigin->{0., 0.},
  AxesStyle->{
    Directive[
     GrayLevel[0], FontSize -> 14], 
    Directive[
     GrayLevel[0], FontSize -> 18]},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-2, 5}, {0., 3.1297801650027495`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, {{
      NCache[Rational[1, 6] Pi, 0.5235987755982988], 
      FormBox[
       FractionBox["\[Pi]", "6"], TraditionalForm]}, {
      NCache[Rational[1, 3] Pi, 1.0471975511965976`], 
      FormBox[
       FractionBox["\[Pi]", "3"], TraditionalForm]}, {
      NCache[Rational[1, 2] Pi, 1.5707963267948966`], 
      FormBox[
       FractionBox["\[Pi]", "2"], TraditionalForm]}, {
      NCache[Rational[2, 3] Pi, 2.0943951023931953`], 
      FormBox[
       FractionBox[
        RowBox[{"2", " ", "\[Pi]"}], "3"], TraditionalForm]}, {
      NCache[Rational[5, 6] Pi, 2.6179938779914944`], 
      FormBox[
       FractionBox[
        RowBox[{"5", " ", "\[Pi]"}], "6"], TraditionalForm]}}}]], "Output",
 CellChangeTimes->{{3.791043931819254*^9, 3.791043959215556*^9}, 
   3.8218084062838783`*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"a28bbbf6-0067-42f3-93e3-9ed8a37ae429"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]neven1", "[", 
       RowBox[{"-", "\[Beta]"}], "]"}], ",", 
      RowBox[{"\[Theta]neven2", "[", 
       RowBox[{"-", "\[Beta]"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Beta]", ",", 
      RowBox[{"-", "5"}], ",", "2"}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Thickness", "[", "0.007", "]"}], ",", "Red"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Thickness", "[", "0.007", "]"}], ",", "Red"}], "}"}]}], 
      "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\!\(\*FractionBox[\(\[Lambda]\\\ \[CurlyEpsilon]\), \(\(|\)\(\
\[Gamma]\)\(|\)\*SuperscriptBox[SubscriptBox[\(\[CapitalPhi]\), \(0\)], \
\(2\)]\)]\)\>\"", ",", "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(s\)]\)\>\""}], 
      "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Automatic", ",", 
       RowBox[{"{", 
        RowBox[{
         FractionBox["\[Pi]", "6"], ",", 
         FractionBox["\[Pi]", "3"], ",", 
         FractionBox["\[Pi]", "2"], ",", 
         FractionBox[
          RowBox[{"2", "\[Pi]"}], "3"]}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AxesStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Directive", "[", 
        RowBox[{"Black", ",", 
         RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Black", ",", 
         RowBox[{"FontSize", "\[Rule]", "18"}]}], "]"}]}], "}"}]}], ",", 
    RowBox[{"Exclusions", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7910438426201143`*^9, 3.791043875043727*^9}, 
   3.791043925661459*^9, {3.821808402714172*^9, 3.821808403114229*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"c6089f38-b759-4ab9-ad42-0b49b8ff4cb7"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[1, 0, 0], Thickness[0.007], Opacity[1.], 
      LineBox[CompressedData["
1:eJxF0Hs0lHkYB/B3MfOuW0mNlVKNlUSSZktp9XtFllCNW1QukZhQoqISlhLV
5nLkkkvUcCq3zORS6PdT7tGW7aKJDUlyaRRh3hkzO/vPOOd5znM+/zzP9zx0
n+OOfnIYhh2R9v+TXcualkgWI00jK2chXQB+G12bXfRw3o1aI8AhbN7Ljfze
NPLUZVYZnNB0s5/3Cv7F1Cq0SGZWKc0drJ23nVrVs4/ZajL76TGvcOTmvZM+
Kp/VvUBm/nYXWwWkKrPi0wf6jUkqMjsmb/KuDVOWuY/SRrH1UJL5Qz9zp6Gx
osyquKjHivazzEflE3fXKM+7WUJDhnLznjrfE+E3hyOb1N1FUdYC8KvolsnN
WRytcWcqnvSS3j/LGumexFHyPVZ7f4gAxMwa31bn44jrfG58WbQAlJ2ePmA/
gqPtk5PbQq4IQO9U3ZL4Tzjap93peSZd+r+wuE7Yh6P3+czF1/IFwOybbbzg
PY4cvUJaB+8KQMBxNcB4iyOvyLN7bnEEIGP8zUxQF47C9Yf4fY+k+b74svpa
cVRvVrzEsF0AdAIMdLQacRT8zyZf5ksBYA5N8JwgjsKGGm5s6JbmGThv31Ip
vRc8E2P6Sbr/fYZx2S1p/vqXciKRAKS7ew5/zsVRYHi/IFGOBE1vdQvoWTjq
Kj+0ehongc6rCvXrSTia6bU0CVUnQU/Hsx/nInG0szZv7zo9EijZpZZVhuPo
D/c4m34DEmxtc/Pnh+Iovre+5E9jEqQ3fer2YeHI9aTci4QtJNj7WFJr64qj
ob6I7lZbEjSWM2J/2YCjdYcrc9ksEnw3Is2YhjiCNR2co8EkoJegyct6ONrm
amujd4IEUXcc/MTLcZRZ4ugUHUGCLQX+Np8UcfQ6X5zYEE+CktTsBdyPVGT5
XK8XFpAg8oAWXf4DFV0rvLtigk0CO90shhOPir7Vt1O07pBgpDLdbfIFFcWa
lnofKCOB/ruUW4zHVLQ2KX5r5iMSFK5M2Pwgk4paaYFjtC4S5JWc9Kx0oKI0
377jHXMkSG52KKuupqDLytE+RXZCcGGJUZ4bl4JuhPrONjoIQYSPyjVBGQX1
JFhz+/cIwSFxe/C2Igo6mpFfSnMWgo2bbYxgGgUN5HlZBxwUgteFO0qaT1BQ
b96rXXVBQqB10fTea0MK0nfTuWt+VQhuW9KLJm8qoBcmC+MPtwiB3poR0wsh
8kgM15u3mIlAt9Mrur2LHLIrZNDjs0VAOMQtDND5CY2/ZvJ2iUSg2cre2HRE
Ai2Sv2ufdJkDUw5hT5Vr5qBoWPt6E3sOyOtevJLoKoQdq3R4N2bmQMjVd/Kn
tQUQTYg/cnaIgf9OJ7ck/jRMaC590HBZDIhn1X3M1CnY7szaX/5WDE5/9Fwa
5/EdGggsNGpWSMDylH7l2u98yGVnRuwOlABv0Z7cNmIU5nBuHouukgCvq5ZJ
lR+GYDh78p5YJAGrqlS+TK4cgDm80OFVqzFim2KV9Uqf9/DcgebOFluM8Bj+
bKhU0QUt+nv6Io9hhPJ0YgPj4hNYg74eOZ+BEWMbttKeb38Cn48WM5ZmYkRn
4HBAwGwDVB0b1aiUOqnfWi03sAEuinGhj2dhxOJOeS+qI4JFv0faeOZgxGYb
4WyFeR3UWsb7YVWAEa7sgWOiEC7UbCqM0S3GCE0tCw2TQQ7UP9S2+6nUvKSb
9X77OJDaWrrZpwQjPM8dVPnbvAJycvSd80sxooNd4mRJK4NhusJW7fsYMY6l
tf1lUwhnT+lztSsx4sTYXs2Z9Wx4vIZr8FjqH29V/b1pt2F2XWe9ZxVGzJVd
UmAM5MO8/Xqm+dUYofVoOur+TCbsAHVndB9hhE5KyPK4xnQYO7jgZZPUBgEj
D11S0mDBw0Er/1qMMNP4d4o0SIb5chmx9+ow4gKvXDebfwUGeXHs7esxIi3h
theReAnS4HPGV6lZbbRi2pnz0HHhZfeNECMWut+ZUOCHwa5hVfMBqY++PBU0
3HYYykdZWKYijEjVtZWWDwxQ4njclfo/YpYzpQ==
       "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGCwBmIQPUnFE4iS7BmgICKD96etZRGcv+lG1Wa/w9Vw/uY7
WiI7stvh/AdTEgsPGPTA+W1qPulPqiYg1N9rOvLGfiqcz+v/oe7vyXlw/qSr
R685TFsA589tFn7XdHwhQv/9dTLsWksQ9k1/Wsn/fgWcL9uiKTXBZiOcrxR9
QdXwKoKvYVRueCl3E5xv8uCIh8j8zXC+l01C+QzGbXB+2ZdpVxYc2wXnZxg1
HY/QOATnz/f2LZ+dj+BfS5FQv7cNwXeZvq4t2fUwnK/w55ZrXtIROP/mUeMj
zXOOIeyPfHpgncBpOF/MQSW26c9FOP+iyqenKjtuwfnM2V3+EyUewfmP5k07
bdTyDM7/a3H2fqPfa4T6mXfmWjN+gPM1mSfMPm70Cc7PXRCRumryFzg/ePW9
Orkz3+D8Dan2e1J//oDztYO3HmUO+w3ne6x7IWfc9RfO91x+OZBrCoLvtWBf
y8O5CL7PpCmv+jci+IFlDtve3EDwo+xm+C5T/wfn55xzr5E8iuDnHjda/+Ec
gp93QPbR8RsIfsGmz+5lbxD80mnzhS8L/4fz6+K+r+pJQvDrwx/dTc5B8BsC
zgpYlyH4zU6Ly152Ivgdav5ObhsR/E55q1LZ3Qh+l4Tqii9HEPwert+8i28g
+L3MzxyqHiH4fX8uFAe+QfAnfN29TOMbgj/x3bKb//8j+AD2IPZJ
       "]]},
     Annotation[#, "Charting`Private`Tag$3214#1"]& ], 
    TagBox[
     {RGBColor[1, 0, 0], Thickness[0.007], Opacity[1.], 
      LineBox[CompressedData["
1:eJxFznlUjHsYB/C2mVcbobF0IqVLSpIoFZ5oUZSrjeIa6WpTKLnWcu5pwQgp
ZQvRpkONpUXdwe+HERWhizLCiPYy7zQz7/u26c79Zzrnec5zPv98n69p6G6/
MA01NbVw5f5/CwRR1OjoZDzN2i1gyHQAFvfMyymqHrPQqBt84sdsbB32QSia
pLLeD3JakPeYZ0pSMyvxRJWjSjnBMG/Maw0q67/nGKgcNsc37Z7GmN1NezQv
No9XWbIi0EsL66us/bTcQpiup7LfmSUhgnhdlcWsWpbXFh2Vv37zdbey0VZZ
nxhuceOMU3mHJm9dle6Ya0Y52EpjzPLElgNhIwTufO6ocWCEgdnDeba5DIG1
1R1yk34w4HcoqrtZRuBrt2d+MfyXgb8Zm/xJEgInsvQFIiED/H3UZu9uAveH
Z8UcrWLgs/yB4dE2An9cJvBKLGVALz75FRITOLDaPjsynwEnqdfRgU8E/jI4
VTzxEgORuw3AronAbz/rBwdkMHC+7wMd00jgatu8Kg6PAXnXn1HiFwSON/l8
tv4gA2aRlmZGQgI/PernXriHAd92UuSPCPwwvka/JlrZpzXR+3mF8l/vmbmI
q8z/dN6Gn6fsf7mycNCDgXPB3M6OKwR+1lrEj1nJwLMm8+umFwnMvTknWW2Z
Mv/d3UnZ6QR2THDbn2LLQMvLesXhBAL3XO3aWDeDAZ21mfyK/QTuUmOFcKYz
4FgbFCHZQ+CbCXVDew2V+c/amkOjCCxqS23eqcvA+kejAq8NBF5zcMIb60Ea
hLftkqYuJLAW1ajjJ6Kh33rQydeKwHHXBYq0DzSYlmDZiTkEVmhCyJtGGo4U
+4T9MibwhdIlgfvraVh6PcKzTZvAm6t5M5c8pKEkM2d82Xc27kvbVm+fR0PC
ZiNTza9snFf+hcfOpWGt+UU7fxEbw+WHeS05NHRXnAuSvWFjvtmn1TnZNFh8
zMize8TGRL36bi6PhkKT4/blF9g40m3GA3EcDVdL9nIrfNj4MnVjqaUHDWdq
fPj377Nw0Tptj/UMBSmG1leDylj4XIf5HVuKggOheqcH+Cwc8HalwlBOwbZf
dTudi1i45knHoFhCwSJ7T2uUxcLrBBahpzsoeF+4qqQmjoX9BWVbnJooMEp1
uPneioXHaYSPVt2nIN/VtEiWq4VDLA6aZSZQMGdut0NKrCZedCk42kabgmb/
d6begRq4rTzgWGyxAobaywojzdSxa4p9w63VCqhx87Zx6B5FktrsE0k/5SD3
iX+qWzWCFsftmGybKwdN89Q03oYhtN0xvGGztxxiT37U3DdjAMVG8YSu6nKI
cPcPSpdQqPisSLa4WgYu9ffFvplyFM4yWbc6Rgb7vnOnJ2/pR+xtHpkrfpOB
ccY3XUG/BCVWSGyKm/shZPj3K7UuPSjrRqfj/lP9sPWka3rF13ZUXZE1Qnv0
w6xKvS6ZSStiCvKaygek4Kxd6WES+gk55Q/pRdyRwpbODiudu42If76hfThc
CroU77Fd6hOEmm+Khgyl0LvQkdOw4gnKSlq4UjhZCq+iOyMjmcdoStKdQycn
SSH9m4fBlejHaPymz2HGBlKY/EpzK9sPozZx+lQnXSnYew4xd5c/QEOz3z2I
UZfChoLWXcOxZUjtzbIbpX0kTDNaOcX2xz0kPq/Qie0lQZSe+zBs4z1kXjff
eVEPCdzDf+i9Xn4XvZzloFbZScLLghJ/Vw4frZmYOUXwnYQ+tazaU56FyGWX
wyrBRxLietdPoxcUIL+uWf6HmklQNOlHhHDy0aC4d75jEwkj/GNadq3XkKLA
2anyHQlG/1BH7tAX0AXRhIrS1ySYZcQaJwvPofkZO9jRDSRYRnZXB2ZkoZ/t
j2ZavCLBacoX+aDlGSQN2JR/vY6EFNFt8xxJGgrKmT2BW0tC1vH8rS68Y4jd
0u1i9IKEqFrOLc7BRJTmvFeR8YyECcHFpJYkHqUdj1mwSEjCjrd/xXTWbkeW
XJZZ4xMSMs29lBOKQtzN+/KV/g/Vd0O8
       "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGCwBmIQPUnFE4iS7BmgICKD96etZRGcv+lG1Wa/w9Vw/uY7
WiI7stvh/AdTEgsPGPTA+W1qPulPqiYg1N9rOvLGfiqcz+v/oe7vyXlw/qSr
R685TFsA589tFn7XdHwhQv/9dTLsWksQ9k1/Wsn/fgWcL9uiKTXBZiOcrxR9
QdXwKoKvYVRueCl3E5xv8uCIh8j8zXC+l01C+QzGbXB+2ZdpVxYc2wXnZxg1
HY/QOATnz/f2LZ+dj+BfS5FQv7cNwXeZvq4t2fUwnK/w55ZrXtIROP/mUeMj
zXOOIeyPfHpgncBpOF/MQSW26c9FOP+iyqenKjtuwfnM2V3+EyUewfmP5k07
bdTyDM7/a3H2fqPfa4T6mXfmWjN+gPM1mSfMPm70Cc7PXRCRumryFzg/ePW9
Orkz3+D8Dan2e1J//oDztYO3HmUO+w3ne6x7IWfc9RfO91x+OZBrCoLvtWBf
y8O5CL7PpCmv+jci+IFlDtve3EDwo+xm+C5T/wfn55xzr5E8iuDnHjda/+Ec
gp93QPbR8RsIfsGmz+5lbxD80mnzhS8L/4fz6+K+r+pJQvDrwx/dTc5B8BsC
zgpYlyH4zU6Ly152Ivgdav5ObhsR/E55q1LZ3Qh+l4Tqii9HEPwert+8i28g
+L3MzxyqHiH4fX8uFAe+QfAnfN29TOMbgj/x3bKb//8j+AD2IPZJ
       "]]},
     Annotation[#, "Charting`Private`Tag$3214#2"]& ], {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
    "\"\\!\\(\\*FractionBox[\\(\[Lambda]\\\\ \[CurlyEpsilon]\\), \
\\(\\(|\\)\\(\[Gamma]\\)\\(|\\)\\*SuperscriptBox[SubscriptBox[\\(\[CapitalPhi]\
\\), \\(0\\)], \\(2\\)]\\)]\\)\"", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(s\\)]\\)\"", TraditionalForm]},
  AxesOrigin->{0., 0.},
  AxesStyle->{
    Directive[
     GrayLevel[0], FontSize -> 14], 
    Directive[
     GrayLevel[0], FontSize -> 18]},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-5, 2}, {0., 2.0940730400046057`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, {{
      NCache[Rational[1, 6] Pi, 0.5235987755982988], 
      FormBox[
       FractionBox["\[Pi]", "6"], TraditionalForm]}, {
      NCache[Rational[1, 3] Pi, 1.0471975511965976`], 
      FormBox[
       FractionBox["\[Pi]", "3"], TraditionalForm]}, {
      NCache[Rational[1, 2] Pi, 1.5707963267948966`], 
      FormBox[
       FractionBox["\[Pi]", "2"], TraditionalForm]}, {
      NCache[Rational[2, 3] Pi, 2.0943951023931953`], 
      FormBox[
       FractionBox[
        RowBox[{"2", " ", "\[Pi]"}], "3"], TraditionalForm]}}}]], "Output",
 CellChangeTimes->{{3.791043943997005*^9, 3.7910439616797533`*^9}, 
   3.821808411408785*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"689f706f-f463-488d-8234-493b22018e5d"]
}, Open  ]]
},
WindowSize->{1427, 1127},
WindowMargins->{{481, Automatic}, {Automatic, 69}},
Magnification:>1.25 Inherited,
FrontEndVersion->"12.2 for Mac OS X x86 (64-bit) (December 12, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"d1e082b4-9790-44c9-a1c1-7866b2a816e9"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 2640, 77, 260, "Input",ExpressionUUID->"ae57b924-932a-43bc-bbe5-b8acc9aeca2b"],
Cell[CellGroupData[{
Cell[3222, 101, 2167, 57, 164, "Input",ExpressionUUID->"4ee3678b-3e15-4332-b220-ebb8908b8053"],
Cell[5392, 160, 9481, 192, 294, "Output",ExpressionUUID->"a28bbbf6-0067-42f3-93e3-9ed8a37ae429"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14910, 357, 2164, 57, 164, "Input",ExpressionUUID->"c6089f38-b759-4ab9-ad42-0b49b8ff4cb7"],
Cell[17077, 416, 8500, 171, 294, "Output",ExpressionUUID->"689f706f-f463-488d-8234-493b22018e5d"]
}, Open  ]]
}
]
*)

